home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / terminal / term / extras / source / term-source.lha / SpeechPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-09-28  |  8.4 KB  |  375 lines
  1. /*
  2. **    SpeechPanel.c
  3. **
  4. **    Editing panel for speech configuration
  5. **
  6. **    Copyright © 1990-1995 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #include "termGlobal.h"
  11.  
  12. enum    {    GAD_RATE=1,GAD_PITCH,GAD_FREQUENCY,GAD_VOLUME,GAD_SEX,GAD_ENABLED,GAD_SPEAK,
  13.         GAD_USE,GAD_LOAD,GAD_SAVE,GAD_CANCEL
  14.     };
  15.  
  16. STATIC LONG __saveds
  17. VolumeDisplay(struct Gadget *SomeGadget,WORD Level)
  18. {
  19.     return((100 * (LONG)Level) / MAXVOL);
  20. }
  21.  
  22. VOID
  23. SpeechPanel()
  24. {
  25.     struct LayoutHandle    *Handle;
  26.     struct SpeechConfig     PrivateConfig;
  27.     ULONG             OldCRC;
  28.  
  29.     OldCRC = DoCRC(&SpeechConfig,sizeof(SpeechConfig));
  30.  
  31.     CopyMem(&SpeechConfig,&PrivateConfig,sizeof(struct SpeechConfig));
  32.  
  33.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  34.         LH_LocaleHook,    &LocaleHook,
  35.         LH_ExitFlush,    FALSE,
  36.     TAG_DONE))
  37.     {
  38.         struct Window *PanelWindow;
  39.  
  40.         LT_New(Handle,
  41.             LA_Type,    VERTICAL_KIND,
  42.         TAG_DONE);
  43.         {
  44.             LT_New(Handle,
  45.                 LA_Type,    VERTICAL_KIND,
  46.                 LA_LabelID,    MSG_V36_0185,
  47.             TAG_DONE);
  48.             {
  49.                 LT_New(Handle,
  50.                     LA_Type,    VERTICAL_KIND,
  51.                 TAG_DONE);
  52.                 {
  53.                     LT_New(Handle,
  54.                         LA_Type,        SliderType,
  55.                         LA_LabelID,        MSG_SPEECHPANEL_RATE_GAD,
  56.                         LA_WORD,        &SpeechConfig . Rate,
  57.                         LA_Chars,        20,
  58.                         LA_ID,            GAD_RATE,
  59.                         GTSL_Min,        MINRATE,
  60.                         GTSL_Max,        MAXRATE,
  61.                         GTSL_LevelFormat,    LocaleBase ? "%lD" : "%ld",
  62.                     TAG_DONE);
  63.  
  64.                     LT_New(Handle,
  65.                         LA_Type,        SliderType,
  66.                         LA_LabelID,        MSG_SPEECHPANEL_PITCH_GAD,
  67.                         LA_WORD,        &SpeechConfig . Pitch,
  68.                         LA_ID,            GAD_PITCH,
  69.                         GTSL_Min,        MINPITCH,
  70.                         GTSL_Max,        MAXPITCH,
  71.                         GTSL_LevelFormat,    LocaleBase ? "%lD" : "%ld",
  72.                     TAG_DONE);
  73.  
  74.                     LT_New(Handle,
  75.                         LA_Type,        SliderType,
  76.                         LA_LabelID,        MSG_SPEECHPANEL_FREQUENCY_GAD,
  77.                         LA_LONG,        &SpeechConfig . Frequency,
  78.                         LA_ID,            GAD_FREQUENCY,
  79.                         GTSL_Min,        MINFREQ,
  80.                         GTSL_Max,        MAXFREQ,
  81.                         GTSL_LevelFormat,    LocaleBase ? "%lD" : "%ld",
  82.                     TAG_DONE);
  83.  
  84.                     LT_New(Handle,
  85.                         LA_Type,        SliderType,
  86.                         LA_LabelID,        MSG_SPEECHPANEL_VOLUME_GAD,
  87.                         LA_BYTE,        &SpeechConfig . Volume,
  88.                         LA_ID,            GAD_VOLUME,
  89.                         GTSL_Min,        MINVOL,
  90.                         GTSL_Max,        MAXVOL,
  91.                         GTSL_LevelFormat,    "%ld%%",
  92.                         GTSL_DispFunc,        VolumeDisplay,
  93.                     TAG_DONE);
  94.  
  95.                     LT_New(Handle,
  96.                         LA_Type,        MX_KIND,
  97.                         LA_LabelID,        MSG_SPEECHPANEL_SEX_GAD,
  98.                         LA_BYTE,        &SpeechConfig . Sex,
  99.                         LA_ID,            GAD_SEX,
  100.                         LAMX_FirstLabel,    MSG_SPEECHPANEL_MALE_TXT,
  101.                         LAMX_LastLabel,        MSG_SPEECHPANEL_FEMALE_TXT,
  102.                     TAG_DONE);
  103.  
  104.                     LT_New(Handle,
  105.                         LA_Type,        CHECKBOX_KIND,
  106.                         LA_LabelID,        MSG_SPEECHPANEL_SPEECH_ENABLED_GAD,
  107.                         LA_BYTE,        &SpeechConfig . Enabled,
  108.                         LA_ID,            GAD_ENABLED,
  109.                         LA_ExtraSpace,        TRUE,
  110.                     TAG_DONE);
  111.  
  112.                     LT_New(Handle,
  113.                         LA_Type,        XBAR_KIND,
  114.                     TAG_DONE);
  115.  
  116.                     LT_EndGroup(Handle);
  117.                 }
  118.  
  119.                 LT_New(Handle,
  120.                     LA_Type,    VERTICAL_KIND,
  121.                 TAG_DONE);
  122.                 {
  123.                     LT_New(Handle,
  124.                         LA_Type,        BUTTON_KIND,
  125.                         LA_LabelID,        MSG_SPEECHPANEL_SPEAK_GAD,
  126.                         LA_ID,            GAD_SPEAK,
  127.                         LA_ExtraFat,        TRUE,
  128.                         GA_Disabled,        !SpeechConfig . Enabled,
  129.                     TAG_DONE);
  130.  
  131.                     LT_EndGroup(Handle);
  132.                 }
  133.  
  134.                 LT_EndGroup(Handle);
  135.             }
  136.  
  137.             LT_New(Handle,
  138.                 LA_Type,VERTICAL_KIND,
  139.             TAG_DONE);
  140.             {
  141.                 LT_New(Handle,
  142.                     LA_Type,    XBAR_KIND,
  143.                     LAXB_FullSize,    TRUE,
  144.                 TAG_DONE);
  145.  
  146.                 LT_EndGroup(Handle);
  147.             }
  148.  
  149.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  150.                 LAGR_SameSize,    TRUE,
  151.                 LAGR_Spread,    TRUE,
  152.             TAG_DONE);
  153.             {
  154.                 LT_New(Handle,
  155.                     LA_Type,    BUTTON_KIND,
  156.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  157.                     LA_ID,        GAD_USE,
  158.                     LABT_ReturnKey,    TRUE,
  159.                     LABT_ExtraFat,    TRUE,
  160.                 TAG_DONE);
  161.  
  162.                 LT_New(Handle,
  163.                     LA_Type,    BUTTON_KIND,
  164.                     LA_LabelID,    MSG_GLOBAL_LOAD_GAD,
  165.                     LA_ID,        GAD_LOAD,
  166.                     LABT_ExtraFat,    TRUE,
  167.                 TAG_DONE);
  168.  
  169.                 LT_New(Handle,
  170.                     LA_Type,    BUTTON_KIND,
  171.                     LA_LabelID,    MSG_GLOBAL_SAVE_GAD,
  172.                     LA_ID,        GAD_SAVE,
  173.                     LABT_ExtraFat,    TRUE,
  174.                 TAG_DONE);
  175.  
  176.                 LT_New(Handle,
  177.                     LA_Type,    BUTTON_KIND,
  178.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  179.                     LA_ID,        GAD_CANCEL,
  180.                     LABT_EscKey,    TRUE,
  181.                     LABT_ExtraFat,    TRUE,
  182.                 TAG_DONE);
  183.  
  184.                 LT_EndGroup(Handle);
  185.             }
  186.  
  187.             LT_EndGroup(Handle);
  188.         }
  189.  
  190.         if(PanelWindow = LT_Build(Handle,
  191.             LAWN_TitleID,        MSG_SPEECHPANEL_SPEECH_PREFERENCES_TXT,
  192.             LAWN_IDCMP,        IDCMP_CLOSEWINDOW,
  193.             LAWN_HelpHook,        &GuideHook,
  194.             LAWN_Parent,        Window,
  195.             WA_DepthGadget,        TRUE,
  196.             WA_CloseGadget,        TRUE,
  197.             WA_DragBar,        TRUE,
  198.             WA_RMBTrap,        TRUE,
  199.             WA_Activate,        TRUE,
  200.             WA_SimpleRefresh,    TRUE,
  201.         TAG_DONE))
  202.         {
  203.             struct IntuiMessage    *Message;
  204.             BOOLEAN             Done = FALSE;
  205.             ULONG             MsgClass;
  206.             UWORD             MsgCode;
  207.             struct Gadget        *MsgGadget;
  208.             UBYTE              DummyBuffer[MAX_FILENAME_LENGTH],
  209.                         *DummyChar;
  210.             struct FileRequester    *FileRequest;
  211.             BYTE             OldEnglish = English;
  212.  
  213.             GuideContext(CONTEXT_SPEECH);
  214.  
  215.             PushWindow(PanelWindow);
  216.  
  217.             do
  218.             {
  219.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  220.                 {
  221.                     CopyMem(&PrivateConfig,&SpeechConfig,sizeof(struct SpeechConfig));
  222.  
  223.                     SpeechSetup();
  224.  
  225.                     break;
  226.                 }
  227.  
  228.                 while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  229.                 {
  230.                     MsgClass    = Message -> Class;
  231.                     MsgCode        = Message -> Code;
  232.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  233.  
  234.                     LT_ReplyIMsg(Message);
  235.  
  236.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  237.                     {
  238.                         CopyMem(&PrivateConfig,&SpeechConfig,sizeof(struct SpeechConfig));
  239.  
  240.                         SpeechSetup();
  241.  
  242.                         Done = TRUE;
  243.                     }
  244.  
  245.                     if(MsgClass == IDCMP_GADGETUP)
  246.                     {
  247.                         switch(MsgGadget -> GadgetID)
  248.                         {
  249.                             case GAD_ENABLED:
  250.  
  251.                                 LT_SetAttributes(Handle,GAD_SPEAK,GA_Disabled,!MsgCode,TAG_DONE);
  252.                                 break;
  253.  
  254.                             case GAD_USE:
  255.  
  256.                                 Done = TRUE;
  257.                                 break;
  258.  
  259.                             case GAD_CANCEL:
  260.  
  261.                                 CopyMem(&PrivateConfig,&SpeechConfig,sizeof(struct SpeechConfig));
  262.  
  263.                                 SpeechSetup();
  264.  
  265.                                 Done = TRUE;
  266.                                 break;
  267.  
  268.                             case GAD_LOAD:
  269.  
  270.                                 SplitFileName(LastSpeech,&DummyChar,DummyBuffer);
  271.  
  272.                                 LT_LockWindow(PanelWindow);
  273.  
  274.                                 if(FileRequest = GetFile(PanelWindow,LocaleString(MSG_SPEECHPANEL_LOAD_SPEECH_SETTINGS_TXT),DummyBuffer,FilePart(LastSpeech),DummyBuffer,"#?.prefs",FALSE,FALSE,FALSE,LocaleString(MSG_GLOBAL_LOAD_TXT),TRUE))
  275.                                 {
  276.                                     if(!ReadIFFData(DummyBuffer,&SpeechConfig,sizeof(struct SpeechConfig),ID_SPEK))
  277.                                         ShowError(PanelWindow,ERR_LOAD_ERROR,IoErr(),DummyBuffer);
  278.                                     else
  279.                                     {
  280.                                         strcpy(LastSpeech,DummyBuffer);
  281.  
  282.                                         LT_SetAttributes(Handle,GAD_RATE,
  283.                                             GTSL_Level,SpeechConfig . Rate,
  284.                                         TAG_DONE);
  285.  
  286.                                         LT_SetAttributes(Handle,GAD_PITCH,
  287.                                             GTSL_Level,SpeechConfig . Pitch,
  288.                                         TAG_DONE);
  289.  
  290.                                         LT_SetAttributes(Handle,GAD_FREQUENCY,
  291.                                             GTSL_Level,SpeechConfig . Frequency,
  292.                                         TAG_DONE);
  293.  
  294.                                         LT_SetAttributes(Handle,GAD_VOLUME,
  295.                                             GTSL_Level,SpeechConfig . Volume,
  296.                                         TAG_DONE);
  297.  
  298.                                         LT_SetAttributes(Handle,GAD_SEX,
  299.                                             GTCY_Active,SpeechConfig . Sex,
  300.                                         TAG_DONE);
  301.  
  302.                                         LT_SetAttributes(Handle,GAD_ENABLED,
  303.                                             GTCB_Checked,SpeechConfig . Enabled,
  304.                                         TAG_DONE);
  305.  
  306.                                         LT_SetAttributes(Handle,GAD_SPEAK,
  307.                                             GA_Disabled,    SpeechConfig . Enabled == FALSE,
  308.                                         TAG_DONE);
  309.  
  310.                                         SpeechSetup();
  311.  
  312.                                         SpeechChanged = FALSE;
  313.  
  314.                                         OldCRC = DoCRC(&SpeechConfig,sizeof(SpeechConfig));
  315.                                     }
  316.  
  317.                                     FreeAslRequest(FileRequest);
  318.                                 }
  319.  
  320.                                 LT_UnlockWindow(PanelWindow);
  321.  
  322.                                 break;
  323.  
  324.                             case GAD_SAVE:
  325.  
  326.                                 SplitFileName(LastSpeech,&DummyChar,DummyBuffer);
  327.  
  328.                                 LT_LockWindow(PanelWindow);
  329.  
  330.                                 if(FileRequest = GetFile(PanelWindow,LocaleString(MSG_SPEECHPANEL_SAVE_SPEECH_SETTINGS_TXT),DummyBuffer,FilePart(LastSpeech),DummyBuffer,"#?.prefs",TRUE,FALSE,FALSE,LocaleString(MSG_GLOBAL_SAVE_TXT),TRUE))
  331.                                 {
  332.                                     if(!WriteIFFData(DummyBuffer,&SpeechConfig,sizeof(struct SpeechConfig),ID_SPEK))
  333.                                         ShowError(PanelWindow,ERR_SAVE_ERROR,IoErr(),DummyBuffer);
  334.                                     else
  335.                                     {
  336.                                         strcpy(LastSpeech,DummyBuffer);
  337.  
  338.                                         SpeechChanged = FALSE;
  339.  
  340.                                         OldCRC = DoCRC(&SpeechConfig,sizeof(SpeechConfig));
  341.                                     }
  342.  
  343.                                     FreeAslRequest(FileRequest);
  344.                                 }
  345.  
  346.                                 LT_UnlockWindow(PanelWindow);
  347.  
  348.                                 break;
  349.  
  350.                             case GAD_SPEAK:
  351.  
  352.                                 SpeechSetup();
  353.  
  354.                                 English = TRUE;
  355.  
  356.                                 Say(LocaleString(MSG_SPEECHPANEL_THIS_IS_TERM_SPEAKING_TXT));
  357.  
  358.                                 English = OldEnglish;
  359.  
  360.                                 break;
  361.                         }
  362.                     }
  363.                 }
  364.             }
  365.             while(!Done);
  366.  
  367.             PopWindow();
  368.         }
  369.  
  370.         LT_DeleteHandle(Handle);
  371.     }
  372.  
  373.     SpeechChanged |= (OldCRC != DoCRC(&SpeechConfig,sizeof(SpeechConfig)));
  374. }
  375.